home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / mui / mui38dev_bb2.lha / EFMUILib / Examples / EFBoopsiDoor.asc < prev    next >
Text File  |  1997-12-14  |  2KB  |  99 lines
  1. ; (EF)BoopsiDoor
  2. ; (c) 1992/93, Stefan Stuntz
  3. ; Blitz Basic 2 version (c) 1997 by Vivid Imagination
  4.  
  5. WBStartup
  6.  
  7. ;Definitions from gadgets/colorwheel.h
  8. #WHEEL_Dummy=(#TAG_USER+$04000000)
  9. #WHEEL_Hue=(#WHEEL_Dummy+1)
  10. #WHEEL_Saturation=(#WHEEL_Dummy+2)
  11. #WHEEL_Screen=(#WHEEL_Dummy+9)
  12.  
  13. Macro InfoGauge ;obj#
  14.   MUIAddTags `1,#MUIA_Frame,#MUIV_Frame_Gauge
  15.   MUIAddTags `1,#MUIA_Background,#MUII_BACKGROUND
  16.   MUIAddTags `1,#MUIA_Gauge_Max,16384
  17.   MUIAddTags `1,#MUIA_Gauge_Divide,262144
  18.   MUIAddTags `1,#MUIA_Gauge_Horiz,1
  19.   MUINewObject `1,"Gauge.mui",0
  20. End Macro
  21.  
  22. *ColorWheelBase.Library=OpenLibrary_("gadgets/colorwheel.gadget",0)
  23. If *ColorWheelBase=0 Then End
  24.  
  25. MUIApplicationTitle        "BoopsiDoor"
  26. MUIApplicationVersion      "$VER: BoopsiDoor 19.5 (12.02.97)"
  27. MUIApplicationCopyright    "(c)1992/93, Stefan Stuntz"
  28. MUIApplicationAuthor       "Stefan Stuntz"
  29. MUIApplicationDescription  "Show a boopsi colorwheel with MUI."
  30. MUIApplicationBase         "BOOPSIDOOR"
  31.  
  32.   MUISetMaximumTags 40
  33.  
  34.   MUIAddTags 0,#MUIA_Group_Columns,2
  35.  
  36.   MUILabel 1,"Hue:",0
  37.  
  38.   !InfoGauge{2}
  39.  
  40.   MUILabel 3,"Saturation:",0
  41.  
  42.   !InfoGauge{4}
  43.  
  44.   MUIAddTags 5,#MUIA_Weight,0
  45.   MUINewObject 5,"Rectangle.mui",0,0
  46.  
  47.   MUINewObject 6,"Scale.mui",0,0
  48.  
  49. MUIAddObjsVGroup 0,1,2,3,4,5,6
  50. MUICreateVGroup 0
  51. MUIAddObjVGroup 10,0
  52.  
  53. MUIAddTags 7,#MUIA_Frame,#MUIV_Frame_Group
  54. MUIAddTags 7,#MUIA_Boopsi_ClassID,Null("colorwheel.gadget")
  55. MUIAddTags 7,#MUIA_Boopsi_MinWidth,30
  56. MUIAddTags 7,#MUIA_Boopsi_MinHeight,30
  57. MUIAddTags 7,#MUIA_Boopsi_Remember,#WHEEL_Saturation
  58. MUIAddTags 7,#MUIA_Boopsi_Remember,#WHEEL_Hue
  59. MUIAddTags 7,#MUIA_Boopsi_TagScreen,#WHEEL_Screen
  60. MUIAddTags 7,#WHEEL_Screen,0
  61. MUIAddTags 7,#GA_Left,0,#GA_Top,0,#GA_Width,0,#GA_Height,0
  62. MUIAddTags 7,#ICA_TARGET,#ICTARGET_IDCMP
  63. MUIAddTags 7,#WHEEL_Saturation,0
  64. MUIAddTags 7,#MUIA_FillArea,1
  65. MUINewObject 7,"Boopsi.mui",0
  66. MUIAddObjVGroup 10,7
  67.  
  68. MUICreateVGroup 10
  69.  
  70. MUICreateWindow 8,"BoopsiDoor","BOOP",10
  71.  
  72. MUIAddSubWindow 8
  73.  
  74. If MUICreateApplication<>True
  75.   CloseLibrary_ *ColorWheelBase
  76.   End
  77. EndIf
  78.  
  79. MUINotifyApp 8,#MUIA_Window_CloseRequest,1,-1
  80.  
  81. MUIOpenWindow 8
  82.  
  83. h.l=0:s.l=0
  84.  
  85. Repeat
  86.   VWait
  87.   ev.l=MUIEvent
  88.   h=MUIGet(7,#WHEEL_Hue)              ;It is different
  89.   MUISet 2,#MUIA_Gauge_Current,h,0    ;from the
  90.   s=MUIGet(7,#WHEEL_Saturation)       ;C source
  91.   MUISet 4,#MUIA_Gauge_Current,s,0    ;but it works.
  92. Until ev=-1
  93.  
  94. MUICloseWindow 8
  95.  
  96. CloseLibrary_ *ColorWheelBase
  97.  
  98. End
  99.